home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / roulette.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  5.4 KB  |  188 lines
  1. 1  CLS:KEY OFF
  2. 100  LET P=5000
  3. 110  PRINT "THIS PROGRAM IS DESIGNED TO SIMULATE THE FRENCH GAMBLING" 
  4. 120  DIM G(10)
  5. 130  LET P=5000   
  6. 140  PRINT "GAME ROULETTE."   
  7. 150  PRINT "DO YOU WISH TO SEE A DESCRIPTION OF THE RULES"
  8. 160  INPUT A$ 
  9. 170  IF A$="NO" THEN 450  
  10. 180  PRINT "YOU BEGIN WITH $5,000 AND MAY BET AS MUCH AS YOU LIKE UNTIL"  
  11. 190  PRINT "YOU HAVE EITHER WON $100,000 OR YOU GO BROKE, WHICH EVER" 
  12. 200  PRINT "COMES FIRST.  THE BETTING IS DONE ON A BOARD OR CLOTH"
  13. 210  PRINT "SUCH AS APPEARS BELOW.  HALF THE NUMBERS ARE RED AND HALF"
  14. 220  PRINT "ARE BLACK EXCEPT ZERO WHICH IS COLORLESS.  BETTING COM-"  
  15. 230  PRINT "BINATIONS AND ODDS ON THEM ARE AS FOLLOWS:"   
  16. 240  PRINT
  17. 250  PRINT "**************************************************************"   
  18. 260  PRINT "          BET                          BANK PAYS" 
  19. 270  PRINT "     -------------         --------------------------------"  
  20. 280  PRINT " 1.RED OR BLACK             EVEN MONEY (AMOUNT OF BET)"  
  21. 290  PRINT " 2.EVEN OR ODD              EVEN MONEY"  
  22. 300  PRINT " 3. HIGH OR LOW             EVEN MONEY"  
  23. 310  PRINT " 4.COLUMN 1,2,OR 3          2 TO 1"  
  24. 320  PRINT " 5.DOZEN (LOW,MIDDLE,HIGH)  2 TO 1"  
  25. 330  PRINT " 6.SINGLE NUMBERS 0-36      36 TO 1" 
  26. 340  PRINT " 7.TWO NUMBERS(ADJACENT)    17 TO 1" 
  27. 350  PRINT " 8.THREE NUMBERS ACCROSS    11 TO 1" 
  28. 360  PRINT " 9.FOUR NUMBERS (SQUARE)    8 TO 1"  
  29. 370  PRINT "10.SIX NUMBERS(RECTANGLE)   5 TO 1"  
  30. 380  PRINT "***************************************************************" 
  31. 400  PRINT"PRESS ANY KEY TO CONTINE"
  32. 410  A$=INKEY$:IF A$="" THEN 410
  33. 420  PRINT "WHEN ASKED TO PLACE YOUR BET, DO SO BY FIRST INPUTING"   
  34. 430  PRINT "THE AMOUNT OF THE BET (SMALLEST BET =$1.00) AND THE"
  35. 440  PRINT "NUMBER OF THE TYPE OF BET DESIRED FROM THE TABLE ABOVE"
  36. 450  PRINT "HERE IS THE ROULETTE LAYOUT:"
  37. 460  PRINT "              ***********************"   
  38. 470  PRINT "              *         0           *"   
  39. 480  PRINT "              *   1     2      3    *"   
  40. 490  PRINT "              *   4     5      6    *"   
  41. 500  PRINT "              *   7     8      9    *"   
  42. 510  PRINT "              *  10    11     12    *"   
  43. 520  PRINT "              *  13    14     15    *"   
  44. 530  PRINT "              *  16    17     18    *"   
  45. 540  PRINT "              *  19    20     21    *"   
  46. 550  PRINT "              *  22    23     24    *"   
  47. 560  PRINT "              *  25    26     27    *"   
  48. 570  PRINT "              *  28    29     30    *"   
  49. 580  PRINT "              *  31    32     33    *"   
  50. 590  PRINT "              *  34    35     36    *"   
  51. 600  PRINT "              ***********************"   
  52. 610  PRINT "              ***********************"   
  53. 620  PRINT "THE ROULETTE WHEEL IS SPINNING-ROUND AND ROUND IT"   
  54. 630  PRINT "GOES, WHERE SHE STOPS NOBODY KNOWS." 
  55. 640  LET X=0 
  56. 650  LET Y=INT(37*RND(1))
  57. 660  PRINT "FAITES VOS JEUX MESSIEUR (PLACE YOUR BETS GENTLEMEN)"
  58. 670  INPUT B,C   
  59. 680  IF C=2 THEN 890 
  60. 690  IF C=3 THEN 990 
  61. 700  IF C=4 THEN 1090 
  62. 710  IF C=5 THEN 1280 
  63. 720  IF C=6 THEN 1430 
  64. 730  IF C=7 THEN 1490 
  65. 740  IF C=8 THEN 1560
  66. 750  IF C=9 THEN 1640
  67. 760  IF C=10 THEN 1730   
  68. 770  LET E=1 
  69. 780  PRINT "WHICH COLOR DO YOU WANT TO BET ON"   
  70. 790  INPUT Z$
  71. 800  IF Y=0 THEN 1880
  72. 810  IF Y<19 THEN 860
  73. 820  PRINT " THE NUMBER IS BLACK"
  74. 830  IF Z$="BLACK" THEN 1820 
  75. 840  GOTO 1880  
  76. 850  PRINT   
  77. 860  PRINT "THE NUMBER IS RED"   
  78. 870  IF Z$="RED" THEN 1820   
  79. 880  GOTO 1880  
  80. 890  LET E=1 
  81. 900  PRINT "WHICH DO WANT TO BET ON, ODD OR EVEN"
  82. 910  INPUT D$
  83. 920  PRINT "THE NUMBER IS"Y  
  84. 930  LET D1=Y/2  
  85. 940  IF D1=INT(Y/2) THEN 970 
  86. 950  IF D$="ODD" THEN 1820   
  87. 960  GOTO 1880  
  88. 970  IF D$="EVEN" THEN 1820  
  89. 980  GOTO 1880  
  90. 990  LET E=1 
  91. 1000  PRINT "DO YOU BET HIGH (19-36) OR LOW (1-18)"   
  92. 1010  INPUT H$
  93. 1020  PRINT "THE NUMBER IS"Y  
  94. 1030  IF Y=0 THEN 1880
  95. 1040  IF Y>18 THEN 1070
  96. 1050  IF H$="LOW" THEN 1820   
  97. 1060  GOTO 1880  
  98. 1070  IF H$="HIGH" THEN 1820  
  99. 1080  GOTO 1880  
  100. 1090  LET E=2 
  101. 1100  PRINT "WHICH COLUMN DO YOU CHOOSE, 1,2,OR 3"
  102. 1110  INPUT F 
  103. 1120  PRINT "THE NUMBER IS"Y  
  104. 1130  IF Y=0 THEN 1880
  105. 1140  IF F=2 THEN 1200 
  106. 1150  IF F=3 THEN 1240 
  107. 1160  FOR F1=1TO34 STEP 3 
  108. 1170  IF F1=Y THEN 1820   
  109. 1180  NEXT F1 
  110. 1190  GOTO 1880  
  111. 1200  FOR F1=2TO35 STEP 3 
  112. 1210  IF F1=Y THEN 1820   
  113. 1220  NEXT F1 
  114. 1230  GOTO 1880  
  115. 1240  FOR F1=3TO36 STEP 3 
  116. 1250  IF F1=Y THEN 1820   
  117. 1260  NEXT F1 
  118. 1270  GOTO 1880  
  119. 1280  LET E=2 
  120. 1290  PRINT "WHICH DOZEN NUMBERS DO YOU CHOOSE, LOW (1-12), MIDDLE"   
  121. 1300  PRINT "(13-24), OR HIGH (25-36)"
  122. 1310  INPUT I$
  123. 1320  PRINT " THE NUMBER IS "Y
  124. 1330  IF Y=0 THEN 1880
  125. 1340  IF I$="MIDDLE" THEN 1380 
  126. 1350  IF I$="HIGH" THEN 1410   
  127. 1360  IF Y<13 THEN 1820   
  128. 1370  GOTO 1880  
  129. 1380  IF Y>25 THEN 1880   
  130. 1390  IF Y<13 THEN 1880   
  131. 1400  GOTO 1820  
  132. 1410  IF Y>24 THEN 1820   
  133. 1420  GOTO 1880  
  134. 1430  LET E=36
  135. 1440  PRINT "OH OH, A LONG SHOT....PICK YOUR NUMBER." 
  136. 1450  INPUT G 
  137. 1460  PRINT "AND THE NUMBER COMES UP --------------------------"Y 
  138. 1470  IF G=Y THEN 1820
  139. 1480  GOTO 1880  
  140. 1490  LET E=17
  141. 1500  PRINT "WHAT TWO ADJACENT NUMBERS ARE YOU BETTING ON"
  142. 1510  INPUT G1,G2 
  143. 1520  PRINT " AND THIS TIME THE NUMBER COMES UP-----------------"Y
  144. 1530  IF G1=Y THEN 1820   
  145. 1540  IF G2=Y THEN 1820   
  146. 1550  GOTO 1880  
  147. 1560  LET E=11   
  148. 1570  PRINT "WHAT THREE NUMBERS(RUNNING ACCROSS THE BOARD) DO YOU WANT"  
  149. 1580  INPUT G1,G2,G3 
  150. 1590  PRINT "AND THE NUMBER IS ::::::::::::::::::::::::::"Y  
  151. 1600  IF G1=Y THEN 1820  
  152. 1610  IF G2=Y THEN 1820  
  153. 1620  IF G3=Y THEN 1820  
  154. 1630  GOTO 1880 
  155. 1640  LET E=8
  156. 1650  PRINT "WHAT FOUR NUMBERS( IN A SQUARE ) DO YOU WANT"   
  157. 1660  INPUT G(1),G(2),G(3),G(4)  
  158. 1670  PRINT "THE MARBLE FALLS AND BOUNCES AND BOUNCES AND, AND"  
  159. 1680  PRINT "THE NUMBER COMES UP"Y   
  160. 1690  FOR I=1TO4 
  161. 1700  IF G(I)=Y THEN 1820
  162. 1710  NEXT I 
  163. 1720  GOTO 1880 
  164. 1730  LET E=5
  165. 1740  PRINT "WHAT SIX NUMBERS (IN A RECTANGLE OOO THE BOARD) DO YOU "
  166. 1750  PRINT "WANT TO BET ON" 
  167. 1760  INPUT G(1),G(2),G(3),G(4),G(5),G(6)
  168. 1770  PRINT "WELL, THE NUMBER CAME UP"Y  
  169. 1780  FOR I=1TO6 
  170. 1790  IF G(I)=Y THEN 1820
  171. 1800  NEXT I 
  172. 1810  GOTO 1880 
  173. 1820  PRINT " *****A WINNER*****"
  174. 1830  PRINT "YOU WIN $"E*B   
  175. 1840  LET P=P+(E*B)  
  176. 1850  PRINT "YOUR PURSE NOW TOTALS $"P   
  177. 1860  IF P>100000 THEN 1930  
  178. 1870  GOTO 650  
  179. 1880  PRINT " *****YOU LOSE*****"
  180. 1890  LET P=P-B  
  181. 1900  PRINT "YOUR PURSE NOW TOTALS $"P   
  182. 1910  IF P>0 THEN 650
  183. 1920  IF P=<0 THEN 1950  
  184. 1930  PRINT "END OF GAME YOU BROKE THE HOUSE"
  185. 1940  GOTO 1960 
  186. 1950  PRINT "YOURE BROKE!!!!!"   
  187. 1960  END
  188.